home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / smalle.com / LARGEEXE.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-12-04  |  737 b   |  45 lines
  1.     REM $TITLE: 'LARGEEXE'
  2.  
  3.     REM $INCLUDE: 'C:\QBASIC\QB.BI'
  4.  
  5.     DEFINT A-Z
  6.  
  7. Initialize:
  8.  
  9.     DATA 1,2,3,4,5,6,7,8,9,10
  10.     DATA Now,is,the,time,for,all,good,persons,to,come
  11.  
  12.     CHAN = 1    ' I/O channel
  13.  
  14. StartProgram:
  15.  
  16.     PRINT : PRINT "Integers"
  17.     START! = TIMER
  18.     FOR I = 1 TO 10
  19.         READ DATA$
  20.         PRINT I, VAL(DATA$)
  21.     NEXT I
  22.     PRINT "Ticks = "; INT(18.2 * (TIMER - START!))
  23.  
  24.     PRINT : PRINT "Strings"
  25.     START! = TIMER
  26.     FOR I = 11 TO 20
  27.         READ DATA$
  28.         PRINT I, DATA$
  29.     NEXT I
  30.     PRINT "Ticks = "; INT(18.2 * (TIMER - START!))
  31.  
  32.     PRINT : PRINT "Read ASCII file:"
  33.     OPEN "LARGEEXE.BAS" FOR INPUT AS #CHAN
  34.  
  35.     DO UNTIL EOF(CHAN)
  36.         LINE INPUT #CHAN, LINE$
  37.         PRINT LINE$
  38.     LOOP
  39.  
  40.     CLOSE #CHAN
  41.  
  42. EndProgram:
  43.  
  44.     END
  45.